home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Prof page II type.adf / Install / UpdateFile < prev    next >
AmigaDOS Script File  |  1990-08-10  |  2KB  |  67 lines
  1. .KEY srcFile/A,srcName,srcVar,destFile/A,destName,destVar,say,ask
  2. .BRA {
  3. .KET }
  4.  
  5. ; Copy a file, but only if the source file's version number is higher
  6. ; than that of the destination.
  7. ;
  8. ; If srcVar is given, it is the name of an environment variable containing
  9. ; the source file's version number.  If not given, the version number will
  10. ; be obtained from srcFile (searching for srcName in the file).
  11. ;
  12. ; Similarly for destVar.
  13. ;
  14. ;
  15. ; If ASK is given, the user will be asked whether the copy should take place
  16. ; (ASK contains the question text).
  17. ;
  18. ; If SAY is non-blank, it contains a message which will be printed before
  19. ; the copy is attempted (this would have been a success/failure indicator
  20. ; after the copy, but COPY doesn't return error status, so there's no
  21. ; way to test for failure!)
  22.  
  23.  
  24. ; Get the source and destination version numbers, either from the files
  25. ; or from command arguments.
  26.  
  27. echo >ENV:GDIRC "ok"     ; Default status (even if user says "no")
  28.  
  29. if "{srcVar}" eq ""
  30.     instutil -eGDISVer version {srcFile} {srcName}
  31. else
  32.     if not "{srcVar}" eq "GDISVer"
  33.         copy ENV:{srcVar} ENV:GDISVer
  34.     endif
  35. endif
  36.  
  37. if "{destVar}" eq ""
  38.     instutil -eGDIDVer version {destFile} {destName}
  39. else
  40.     if not "{destVar}" eq "GDIDVer"
  41.         copy ENV:{destVar} ENV:GDIDVer
  42.     endif
  43. endif
  44.  
  45. ; if source-version > dest-version
  46. ;    if !{ask} || ask({say})=='y'
  47. ;        echo {say}
  48. ;        copy the file
  49.  
  50. if not val $GDISVer gt $GDIDVer
  51.     skip UpdWrapup
  52. endif
  53.  
  54. if not "{ask}" eq ""
  55.     instutil ask -dy {ask} [Y/N]? Y
  56.     if warn
  57.         skip UpdWrapup
  58.     endif
  59. endif
  60.  
  61.  
  62. ; Copy the file.
  63.  
  64. execute GD_SourceDisk:Install/RamCopy {srcFile} {destFile} "{say}" "updated"
  65.  
  66. lab UpdWrapup
  67.